4 REM ---------- PAR-PRINT -----------
5 REM PARALLEL PRINTER BASIC INTERFACE
6 REM BE= START ADDR.  E= END ADDR.
7 REM
8 REM 1998 - ILKER FICICILAR
9 REM FILKER@NEWTON.PHYSICS.METU.EDU.TR
10 BE= 828 :L=1000
20 DEFFNA(X)=X-(48-7*(X>64))
30 PRINTL"[145]":S=0:READB$,C:IFB$="END"THENEND:RUN
40 FORI=0TO31:V=FNA(ASC(MID$(B$,I*2+1,1)))*16+FNA(ASC(MID$(B$,I*2+2,1)))
50 POKEBE+I,V:S=S+V:NEXT:IFS=CTHENL=L+10:BE=BE+32:GOTO30
60 PRINT"DATA ERROR IN LINE #"L:STOP
90 END
1000 DATA4C45034C7B034C5103A9FF8D03DD20FDAE209EB78A488A48A9102C0DDDD00C20, 3266
1010 DATABCF620E1FFD0F1A9FF859168AA688D01DDAD00DD09048D00DD29FB8D00DD60A9, 4526
1020 DATAFF8D03DDA51948A51A4820FDAE209EAD20A3B68619841AAAA000B119204203C8, 3494
1030 DATACAD0F768851A6885196000000000000000000000000000000000000000000000, 1278
1040 DATA END,0
1900 REM
1910 REM PAR-PRINT  PRINTS TEXT TO A
1920 REM PARALLEL PRINTER, USING
1930 REM GEOCABLE TYPE USERPORT
1940 REM INTERFACE.
1950 REM
2000 REM
2010 REM USAGE:
2020 REM        SYS828,BYTE
2030 REM     OR
2040 REM        SYS831,STRING
2050 REM EG.:
2060 REM        SYS828,13
2070 REM        SYS831,"HELLO "
2080 REM        A$="WORLD"+CHR$(10)
2090 REM        SYS831,A$
2100 REM